home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 January / Macworld (2000-01).dmg / Shareware World / Utilities / Text processing / PDF–Blit™1.02.sea / PDF–Blit™1.02 / Source / pdfOutput.c < prev    next >
C/C++ Source or Header  |  1999-09-17  |  24KB  |  970 lines
  1. // ©1999 by Kas Thomas. All rights reserved. See ReadMe for important information.
  2. #include <A4Stuff.h>
  3. #include <MacTypes.h>
  4. #include <Aliases.h>
  5. #include <string.h>
  6. #include <ExternalInterface.h>
  7. #include <BBXTInterface.h>
  8. #include "p_intern.h"
  9. #include <stdlib.h>
  10. #include <ctype.h>
  11. #include "p_afmparse.h"
  12. #include "pdfPrefs.h"
  13. #include <math.h>
  14. #define    ExternalCallbackBlock    BBXTCallbackBlock
  15. #define ITALIC 0x0002
  16. #define BOLDFACE 0x0001
  17. #define NOT_ITALIC 0xFFFD
  18. #define NOT_BOLDFACE 0xFFFE
  19. #define SPACE 0x20
  20. #define LINEFEED 0x0a 
  21. #define FONTSIZE 9
  22. #define LEADING 10.0
  23. #define TEXT_STARTX 60
  24. #define TEXT_STARTY 750
  25. #define LINES_PER_PAGE 60
  26. #define CARRIAGE_RETURN 0x0d
  27. #define TAB 0x09
  28. #define LETTER_WIDTH letter_width
  29. #define LETTER_HEIGHT letter_height
  30. #define TAB_VALUE 5
  31. #define PAGEWIDTH (8.5 * 72)
  32. #define PAGEHEIGHT (11.5 * 72)
  33.  
  34. OSErr pdfTranslate(ExternalCallbackBlock *cb, Handle t, WindowPtr w );
  35. void FudgeName(ExternalCallbackBlock *cb, unsigned char *str, WindowPtr w);
  36. pascal OSErr main(ExternalCallbackBlock *callbacks, 
  37.     WindowPtr w, long flags, AppleEvent *event, AppleEvent *reply);
  38. void setDefaultPrefs( PrefsPtr p );
  39. void JustifyLine(PDF *p, char *line, PrefsPtr pp,long targetWidth);
  40. int CountWords(char *line);
  41. int CountChars(char *line);
  42. void DoHeader(PrefsPtr prefs, PDF *p, long page);
  43. void OpenInAcrobat(ExternalCallbackBlock *cb,WindowPtr w, char *pdfFileName);
  44. float InterpretHTML(PDF *p, char *line, PrefsPtr pp, long *i);
  45. void SetStyle(PDF *p, PrefsPtr prefs);
  46. char *lowerstr( char *p);
  47. int Hex2int(char *c);
  48. void SetTextColor(PDF *p, PrefsPtr prefs );
  49. float LeadingValue(PDF *p,PrefsPtr prefs);
  50. char *fontTable[] = { "","Helvetica","Helvetica-Bold","Helvetica-Oblique","Helvetica-BoldOblique",
  51. "Times-Roman","Times-Bold","Times-Italic","Times-BoldItalic","Courier","Courier-Bold","Courier-Oblique","Courier-BoldOblique"};
  52. char *transitionsTable[] = { "","wipe","dissolve","box","split","blinds","replace","glitter"};
  53.         
  54. unsigned char buf[1024];
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61. // * * * * * * * * * * * * * * main() * * * * * * * * * * * * * * * * 
  62. pascal OSErr main(ExternalCallbackBlock *callbacks, 
  63.     WindowPtr w, long flags, AppleEvent *event, AppleEvent *reply)
  64. {
  65.     OSErr    err = noErr;
  66.     EnterCodeResource();
  67.     {
  68.         Handle text;
  69.         WindowPtr newWindow;
  70.         
  71.         if (!w) return err;
  72.     
  73.         text = bbxtGetWindowContents(callbacks,w);
  74.     
  75.         err = pdfTranslate(callbacks,text,w); 
  76.     } 
  77. ExitCodeResource();
  78. return err;
  79. }
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86. OSErr pdfTranslate( ExternalCallbackBlock *callbacks, 
  87. Handle theText,
  88. WindowPtr w ) {
  89. PDF *p=nil;
  90. int font,j;
  91. long i,textLength;
  92. OSErr err = noErr;
  93. Boolean timeForNewPage = false; 
  94. char okLineEnders[] = "- ;:,";
  95. PrefsPtr prefs = nil;
  96. unsigned char *input,filename[32];
  97. unsigned char *out = buf;
  98. short nuts,vRef,fref = -1;
  99. long DirID,amt;
  100. FSSpec fss;
  101. long page = 1L;
  102. float currentDepth,pointDepthLimit;
  103. int origBaseFont;
  104. prefs = (PrefsPtr)NewPtr(sizeof(Prefs));
  105. err = FindFolder(kOnSystemDisk,kPreferencesFolderType,true,&vRef,&DirID);
  106. err = FSMakeFSSpec(vRef,DirID,"\pPDF-Blit 1.0 Prefs",&fss);
  107. err = FSpOpenDF(&fss,fsRdWrPerm,&fref);
  108. if (err) {
  109. err = FSpCreate(&fss,'pdfK','TEXT',smSystemScript);
  110. if (err) return err;
  111. setDefaultPrefs( prefs);
  112. err = FSpOpenDF(&fss,fsRdWrPerm,&fref);
  113. }
  114. else {
  115. amt = sizeof(Prefs);
  116. err = FSRead(fref, &amt, prefs);
  117. if (err || !amt)
  118. setDefaultPrefs( prefs);
  119. }
  120. prefs->color[0] = prefs->color[1] = prefs->color[2] = 0.0;
  121. prefs->style = 0;
  122. if (-1 == DoDialog(callbacks, prefs)) {
  123. if (prefs) DisposePtr((Ptr)prefs);
  124. if (fref != -1) FSClose(fref);
  125. return err;
  126. }
  127. p = PDF_new(); 
  128. if (p == nil) { 
  129. return -1;
  130. }
  131. HLockHi(theText);
  132. textLength = GetHandleSize(theText);
  133. FudgeName(callbacks,filename,w);
  134. if (PDF_open_file(p,(char *)filename )==-1){
  135. ParamText("\pProblem opening the output file.","\p ","\p","\p");
  136. NoteAlert(401,0);
  137. return err;
  138. }
  139. PDF_set_info(p,"Creator","PDFOut 1.0");
  140. PDF_set_info(p,"Author",(char *)prefs->author);
  141. PDF_set_info(p,"Title",(char *)prefs->title);
  142. PDF_set_info(p,"Keywords",(char *)prefs->keywords);
  143. PDF_set_transition(p,(char *)transitionsTable[prefs->transition]);
  144. PDF_begin_page(p,letter_width,letter_height); 
  145. font = PDF_findfont(p,(char *)fontTable[ prefs->font ],"default",0);
  146. if (font ==-1){
  147. fprintf(stderr,"Couldn't set font!\n");
  148. HUnlock(theText);
  149. exit(3);
  150. }
  151. PDF_setfont(p,font,prefs->ptsize);
  152. PDF_set_leading(p, prefs->leading);
  153. PDF_show(p," ");
  154. origBaseFont = prefs->font;
  155. pointDepthLimit = PAGEHEIGHT - prefs->marginBot;
  156. DoHeader(prefs,p,page);
  157. currentDepth = prefs->marginTop + LeadingValue(p,prefs);
  158. PDF_set_text_pos(p,prefs->marginLeft,PAGEHEIGHT-currentDepth);
  159. bbxtStartProgress(callbacks,"\p Writing PDF... Thank you for using PDF–Blit!",textLength,true);
  160. input = *(unsigned char **)theText;
  161. if (prefs->marginLeft + prefs->marginRt > PAGEWIDTH) goto TheEnd;
  162. if (prefs->marginTop + prefs->marginBot > PAGEHEIGHT) goto TheEnd;
  163. for (i = 0; i < textLength - 1 ; ) 
  164. { 
  165. Boolean LineSegmented = false;
  166. float lw = 0.,soFar = 0.;
  167. int ourFont = PDF_get_font(p);
  168. long desiredWidth = (long)(PAGEWIDTH - (prefs->marginLeft + prefs->marginRt));
  169. if (prefs->justify == false)
  170. desiredWidth -= 0.5 * prefs->marginRt;
  171. if (bbxtDoProgress(callbacks,i)) 
  172. goto TheEnd;
  173.  
  174. for (j = 0, out = buf, *(out+1)=0x00; 
  175. (lw < desiredWidth) && i < textLength - 1; 
  176. j++) 
  177. { 
  178. if (j == 0) 
  179. if (input[i] == SPACE) {
  180. while (input[i] == SPACE) 
  181. i++;
  182. continue;
  183. }
  184. PDF_set_horiz_scaling(p,(float)prefs->chwidth);
  185. *out++ = input[i++];
  186.  
  187. if (prefs->interpHTML == true ) {
  188.  
  189. if (input[i-1] == '<' && input[i-2] == 0x5c) {
  190. *(out - 2) = *(out - 1); 
  191. out--;
  192. } 
  193. else if (input[i-1] == '<' && input[i-2] != 0x5c) 
  194. {
  195. Boolean sendDown = (input[i-2] == CARRIAGE_RETURN) ? true:false;
  196. float fsize = PDF_get_fontsize(p);
  197. int currentFont = PDF_get_font(p);
  198. if (input[i] == 'h' || input[i] == 'H') {
  199. char *range = "123456";
  200. char ch = input[i+1];
  201.  
  202. if (strchr(range,ch) != NULL) {
  203. int fnt = PDF_findfont(p,(char *)fontTable[6],"default",0);
  204. if (LineSegmented == false) 
  205. {
  206. currentDepth += LeadingValue(p,prefs);
  207. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  208. }
  209. LineSegmented = true; 
  210. if (ch == '1') fsize *= 1.1 * 1.1 * 1.1 * 1.1 * 1.2 * 1.2;
  211. if (ch == '2') fsize *= 1.1 * 1.1 * 1.1 * 1.1 * 1.2;
  212. if (ch == '3') fsize *= 1.1 * 1.1 * 1.1 * 1.1;
  213. if (ch == '4') fsize *= 1.1 * 1.1 * 1.1;
  214. if (ch == '5') fsize *= 1.1 * 1.1;
  215. if (ch == '6') fsize *= 1.1;
  216.  
  217. *(out - 1)=0x00;
  218. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  219. PDF_show(p,(char *)buf);
  220. PDF_setfont(p, fnt, fsize );
  221. PDF_set_leading(p,fsize); 
  222. out = buf;
  223. *out++ = input[i]; 
  224. } 
  225. } 
  226.  
  227. if (tolower(input[i]) == 'p' && 
  228. tolower(input[i+1]) == 'r' && 
  229. tolower(input[i+2]) == 'e') 
  230. {
  231. if (LineSegmented == false) 
  232. {
  233. currentDepth += LeadingValue(p,prefs);
  234. PDF_set_text_pos(p,(float)(prefs->marginLeft),
  235. PAGEHEIGHT-currentDepth);
  236. }
  237. LineSegmented = true;
  238. *(out - 1)=0x00;
  239. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  240. PDF_show(p,(char *)buf);
  241. out = buf;
  242. *out++ = input[i]; 
  243. prefs->font = 9; 
  244. SetStyle(p,prefs);
  245. }
  246.  
  247. if (input[i] == 'i' || input[i] == 'I') 
  248. if (input[i+1] != 'm' && input[i+1] != 'M') {
  249. if (LineSegmented == false) 
  250. {
  251. currentDepth += LeadingValue(p,prefs);
  252. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  253. }
  254. LineSegmented = true;
  255. *(out - 1)=0x00;
  256. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  257. PDF_show(p,(char *)buf);
  258. out = buf;
  259. *out++ = input[i]; 
  260. prefs->style |= ITALIC;
  261. SetStyle(p,prefs);
  262. }
  263.  
  264.  
  265. if (tolower(input[i]) == 'b' || !strncmp("strong",(char *)(input+i),6) ||
  266. !strncmp("STRONG",(char *)(input+i),6)) 
  267. {
  268. if (LineSegmented == false) 
  269. {
  270. currentDepth += LeadingValue(p,prefs);
  271. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  272. }
  273. LineSegmented = true;
  274. *(out - 1)=0x00;
  275. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  276. PDF_show(p,(char *)buf);
  277. out = buf;
  278. *out++ = input[i]; 
  279. prefs->style |= BOLDFACE;
  280. SetStyle(p,prefs);
  281. }
  282.  
  283. if (!strncmp("rect",(char *)(input+i),4) ||
  284. !strncmp("RECT",(char *)(input+i),4) )
  285. {
  286. char *st,*ch = (char *) input + i + 4;
  287. float left,bottom,width,height;
  288.  
  289. while (*ch == SPACE) ch++; 
  290. st = ch;
  291. while (isdigit(*ch) || *ch == '.') ch++;
  292. *ch = 0x00;
  293. left = (float) atoi(st); 
  294. *ch = SPACE;
  295.  
  296. while (*ch == SPACE || *ch == 0x00) ch++; 
  297. st = ch;
  298. while (isdigit(*ch) || *ch == '.') ch++;
  299. *ch = 0x00;
  300. bottom = (float) atoi(st);
  301. *ch = SPACE;
  302.  
  303. while (*ch == SPACE || *ch == 0x00) ch++; 
  304. st = ch;
  305. while (isdigit(*ch) || *ch == '.') ch++;
  306. *ch = 0x00;
  307. width = (float) atoi(st);
  308. *ch = SPACE;
  309.  
  310. while (*ch == SPACE || *ch == 0x00) ch++; 
  311. st = ch;
  312. while (isdigit(*ch) || *ch == '.') ch++;
  313. { char old = *ch;
  314. *ch = 0x00;
  315.  
  316. height = (float) atoi(st);
  317. *ch = old;
  318. }
  319. PDF_save(p);
  320. PDF_rect(p,left,bottom,width,height);
  321. PDF_fill(p);
  322. PDF_restore(p);
  323. }
  324.  
  325. if (!strncmp("font color=#",(char *)(input+i),12) ||
  326. !strncmp("FONT COLOR=#",(char *)(input+i),12) )
  327. {
  328. float r,g,b;
  329. int j;
  330. char ch[3];
  331. if (LineSegmented == false) 
  332. {
  333. currentDepth += LeadingValue(p,prefs);
  334. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  335. }
  336. LineSegmented = true;
  337. *(out - 1)=0x00;
  338. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  339. PDF_show(p,(char *)buf);
  340. out = buf;
  341. *out++ = input[i]; 
  342. ch[0] = input[i+13]; ch[1] = input[i+14]; ch[2] = 0x00;
  343. j = Hex2int(ch); 
  344. r = (float)j/255.;
  345. ch[0] = input[i+15]; ch[1] = input[i+16]; ch[2] = 0x00;
  346. j = Hex2int(ch); 
  347. g = (float)j/255.;
  348. ch[0] = input[i+17]; ch[1] = input[i+17]; ch[2] = 0x00;
  349. j = Hex2int(ch); 
  350. b = (float)j/255.;
  351. prefs->color[0] = r;
  352. prefs->color[1] = g;
  353. prefs->color[2] = b;
  354. SetTextColor(p,prefs);
  355. }
  356.  
  357. if (input[i] == '!' && input[i+1] == '!')
  358. {
  359. out--;
  360. i--;
  361. while (input[i++] != '>') ;
  362. currentDepth = pointDepthLimit;
  363. goto NewPage; 
  364. } 
  365.  
  366. if (input[i] == '#' && input[i + 1] == '3' && input[i+2] == '0')
  367. goto TheEnd;
  368.  
  369. if (input[i] == 0x2f) 
  370. {
  371. if (input[i+1]=='h' || input[i+1]=='H') {
  372. if (LineSegmented == false) 
  373. {
  374. currentDepth += LeadingValue(p,prefs);
  375. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  376. }
  377. LineSegmented = true;
  378. *(out - 1)=0x00;
  379. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  380. PDF_show(p,(char *)buf);
  381. out = buf;
  382. *out++ = input[i]; 
  383. PDF_set_leading (p, prefs->leading);
  384. PDF_setfont(p,font,prefs->ptsize);
  385. } 
  386.  
  387. if (tolower(input[i+1])=='p' && tolower(input[i+2])=='r'
  388. && tolower(input[i+3])=='e')
  389. {
  390. if (LineSegmented == false) 
  391. {
  392. currentDepth += LeadingValue(p,prefs);
  393. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  394. }
  395. LineSegmented = true;
  396. *(out - 1)=0x00;
  397. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  398. PDF_show(p,(char *)buf);
  399. out = buf;
  400. *out++ = input[i]; 
  401. prefs->font = origBaseFont;
  402. SetStyle(p,prefs);
  403. }
  404.  
  405. if (input[i+1]=='i' || input[i+1]=='I') {
  406. if (LineSegmented == false) 
  407. {
  408. currentDepth += LeadingValue(p,prefs);
  409. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  410. }
  411. LineSegmented = true;
  412. *(out - 1)=0x00;
  413. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  414. PDF_show(p,(char *)buf);
  415. out = buf;
  416. *out++ = input[i]; 
  417. prefs->style &= NOT_ITALIC;
  418. SetStyle(p,prefs);
  419. }
  420.  
  421. if (tolower(input[i+1])=='b' || !strncmp("strong",(char *)(input+i+1),6)
  422. || !strncmp("STRONG",(char *)(input+i+1),6)) {
  423. if (LineSegmented == false) 
  424. {
  425. currentDepth += LeadingValue(p,prefs);
  426. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  427. }
  428. LineSegmented = true;
  429. *(out - 1)=0x00;
  430. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  431. PDF_show(p,(char *)buf);
  432. out = buf;
  433. *out++ = input[i]; 
  434. prefs->style &= NOT_BOLDFACE;
  435. SetStyle(p,prefs);
  436. }
  437. } 
  438. out--;
  439. i--;
  440. while (input[i++] != '>') ;
  441.  
  442. if (sendDown == true)
  443. goto TerminateLine;
  444. continue;
  445. } 
  446. } 
  447.  
  448.  
  449. if (input[i-1] == TAB) { 
  450. int k;
  451. for (k = 0; k < prefs->spaces; k++)
  452. *out++ = SPACE;
  453. }
  454. *out = 0x00;
  455. lw = PDF_stringwidth(p,(char *)buf,ourFont,prefs->ptsize) + soFar;
  456. lw *= prefs->chwidth/100.; 
  457. if (input[i-1] == CARRIAGE_RETURN || LINEFEED == input[i-1]) { 
  458. if (LineSegmented == true)
  459. { PDF_show(p,(char *)buf); goto SegEntry; }
  460. else goto TerminateLine;
  461. }
  462. } 
  463. do {
  464. if (prefs->interpHTML == true ) 
  465. {
  466. if (input[i-1] == '<' && input[i-2] != 0x5c) 
  467. {
  468. out--;
  469. i--;
  470. while (input[i++] != '>') ;
  471. }
  472. } 
  473. *out++ = input[i++];
  474.  
  475. if (prefs->interpHTML == true ) {
  476.  
  477. if (input[i-1] == '<' && input[i-2] == 0x5c) {
  478. *(out - 2) = *(out - 1); 
  479. out--;
  480. } 
  481. else if (input[i-1] == '<' && input[i-2] != 0x5c) 
  482. {
  483. Boolean sendDown = (input[i-2] == CARRIAGE_RETURN) ? true:false;
  484. float fsize = PDF_get_fontsize(p);
  485. int currentFont = PDF_get_font(p);
  486. if (input[i] == 'h' || input[i] == 'H') {
  487. char *range = "123456";
  488. char ch = input[i+1];
  489.  
  490. if (strchr(range,ch) != NULL) {
  491. int fnt = PDF_findfont(p,(char *)fontTable[6],"default",0);
  492. if (LineSegmented == false) 
  493. {
  494. currentDepth += LeadingValue(p,prefs);
  495. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  496. }
  497. LineSegmented = true; 
  498. if (ch == '1') fsize *= 1.1 * 1.1 * 1.1 * 1.1 * 1.2 * 1.2;
  499. if (ch == '2') fsize *= 1.1 * 1.1 * 1.1 * 1.1 * 1.2;
  500. if (ch == '3') fsize *= 1.1 * 1.1 * 1.1 * 1.1;
  501. if (ch == '4') fsize *= 1.1 * 1.1 * 1.1;
  502. if (ch == '5') fsize *= 1.1 * 1.1;
  503. if (ch == '6') fsize *= 1.1;
  504.  
  505. *(out - 1)=0x00;
  506. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  507. PDF_show(p,(char *)buf);
  508. PDF_setfont(p, fnt, fsize );
  509. PDF_set_leading(p,fsize); 
  510. out = buf;
  511. *out++ = input[i]; 
  512. } 
  513. } 
  514.  
  515. if (tolower(input[i]) == 'p' && 
  516. tolower(input[i+1]) == 'r' && 
  517. tolower(input[i+2]) == 'e') 
  518. {
  519. if (LineSegmented == false) 
  520. {
  521. currentDepth += LeadingValue(p,prefs);
  522. PDF_set_text_pos(p,(float)(prefs->marginLeft),
  523. PAGEHEIGHT-currentDepth);
  524. }
  525. LineSegmented = true;
  526. *(out - 1)=0x00;
  527. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  528. PDF_show(p,(char *)buf);
  529. out = buf;
  530. *out++ = input[i]; 
  531. prefs->font = 9; 
  532. SetStyle(p,prefs);
  533. }
  534.  
  535. if (input[i] == 'i' || input[i] == 'I') 
  536. if (input[i+1] != 'm' && input[i+1] != 'M') {
  537. if (LineSegmented == false) 
  538. {
  539. currentDepth += LeadingValue(p,prefs);
  540. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  541. }
  542. LineSegmented = true;
  543. *(out - 1)=0x00;
  544. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  545. PDF_show(p,(char *)buf);
  546. out = buf;
  547. *out++ = input[i]; 
  548. prefs->style |= ITALIC;
  549. SetStyle(p,prefs);
  550. }
  551.  
  552.  
  553. if (tolower(input[i]) == 'b' || !strncmp("strong",(char *)(input+i),6) ||
  554. !strncmp("STRONG",(char *)(input+i),6)) 
  555. {
  556. if (LineSegmented == false) 
  557. {
  558. currentDepth += LeadingValue(p,prefs);
  559. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  560. }
  561. LineSegmented = true;
  562. *(out - 1)=0x00;
  563. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  564. PDF_show(p,(char *)buf);
  565. out = buf;
  566. *out++ = input[i]; 
  567. prefs->style |= BOLDFACE;
  568. SetStyle(p,prefs);
  569. }
  570.  
  571. if (!strncmp("rect",(char *)(input+i),4) ||
  572. !strncmp("RECT",(char *)(input+i),4) )
  573. {
  574. char *st,*ch = (char *) input + i + 4;
  575. float left,bottom,width,height;
  576.  
  577. while (*ch == SPACE) ch++; 
  578. st = ch;
  579. while (isdigit(*ch) || *ch == '.') ch++;
  580. *ch = 0x00;
  581. left = (float) atoi(st); 
  582. *ch = SPACE;
  583.  
  584. while (*ch == SPACE || *ch == 0x00) ch++; 
  585. st = ch;
  586. while (isdigit(*ch) || *ch == '.') ch++;
  587. *ch = 0x00;
  588. bottom = (float) atoi(st);
  589. *ch = SPACE;
  590.  
  591. while (*ch == SPACE || *ch == 0x00) ch++; 
  592. st = ch;
  593. while (isdigit(*ch) || *ch == '.') ch++;
  594. *ch = 0x00;
  595. width = (float) atoi(st);
  596. *ch = SPACE;
  597.  
  598. while (*ch == SPACE || *ch == 0x00) ch++; 
  599. {char old = *ch;
  600. st = ch;
  601. while (isdigit(*ch) || *ch == '.') ch++;
  602. *ch = 0x00;
  603.  
  604. height = (float) atoi(st);
  605. *ch = old;
  606. PDF_save(p);
  607. PDF_rect(p,left,bottom,width,height);
  608. PDF_fill(p);
  609. PDF_restore(p); 
  610. } 
  611.  
  612. }
  613.  
  614. if (!strncmp("font color=#",(char *)(input+i),12) ||
  615. !strncmp("FONT COLOR=#",(char *)(input+i),12) )
  616. {
  617. float r,g,b;
  618. int j;
  619. char ch[3];
  620. if (LineSegmented == false) 
  621. {
  622. currentDepth += LeadingValue(p,prefs);
  623. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  624. }
  625. LineSegmented = true;
  626. *(out - 1)=0x00;
  627. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  628. PDF_show(p,(char *)buf);
  629. out = buf;
  630. *out++ = input[i]; 
  631. ch[0] = input[i+13]; ch[1] = input[i+14]; ch[2] = 0x00;
  632. j = Hex2int(ch); 
  633. r = (float)j/255.;
  634. ch[0] = input[i+15]; ch[1] = input[i+16]; ch[2] = 0x00;
  635. j = Hex2int(ch); 
  636. g = (float)j/255.;
  637. ch[0] = input[i+17]; ch[1] = input[i+17]; ch[2] = 0x00;
  638. j = Hex2int(ch); 
  639. b = (float)j/255.;
  640. prefs->color[0] = r;
  641. prefs->color[1] = g;
  642. prefs->color[2] = b;
  643. SetTextColor(p,prefs);
  644. }
  645.  
  646. if (input[i] == '!' && input[i+1] == '!')
  647. {
  648. out--;
  649. i--;
  650. while (input[i++] != '>') ;
  651. currentDepth = pointDepthLimit;
  652. goto NewPage; 
  653. } 
  654.  
  655. if (input[i] == '#' && input[i + 1] == '3' && input[i+2] == '0')
  656. goto TheEnd;
  657.  
  658. if (input[i] == 0x2f) 
  659. {
  660. if (input[i+1]=='h' || input[i+1]=='H') {
  661. if (LineSegmented == false) 
  662. {
  663. currentDepth += LeadingValue(p,prefs);
  664. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  665. }
  666. LineSegmented = true;
  667. *(out - 1)=0x00;
  668. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  669. PDF_show(p,(char *)buf);
  670. out = buf;
  671. *out++ = input[i]; 
  672. PDF_set_leading (p, prefs->leading);
  673. PDF_setfont(p,font,prefs->ptsize);
  674. } 
  675.  
  676. if (tolower(input[i+1])=='p' && tolower(input[i+2])=='r'
  677. && tolower(input[i+3])=='e')
  678. {
  679. if (LineSegmented == false) 
  680. {
  681. currentDepth += LeadingValue(p,prefs);
  682. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  683. }
  684. LineSegmented = true;
  685. *(out - 1)=0x00;
  686. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  687. PDF_show(p,(char *)buf);
  688. out = buf;
  689. *out++ = input[i]; 
  690. prefs->font = origBaseFont;
  691. SetStyle(p,prefs);
  692. }
  693.  
  694. if (input[i+1]=='i' || input[i+1]=='I') {
  695. if (LineSegmented == false) 
  696. {
  697. currentDepth += LeadingValue(p,prefs);
  698. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  699. }
  700. LineSegmented = true;
  701. *(out - 1)=0x00;
  702. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  703. PDF_show(p,(char *)buf);
  704. out = buf;
  705. *out++ = input[i]; 
  706. prefs->style &= NOT_ITALIC;
  707. SetStyle(p,prefs);
  708. }
  709.  
  710. if (tolower(input[i+1])=='b' || !strncmp("strong",(char *)(input+i+1),6)
  711. || !strncmp("STRONG",(char *)(input+i+1),6)) {
  712. if (LineSegmented == false) 
  713. {
  714. currentDepth += LeadingValue(p,prefs);
  715. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  716. }
  717. LineSegmented = true;
  718. *(out - 1)=0x00;
  719. soFar += PDF_stringwidth(p,(char *)buf,currentFont,fsize);
  720. PDF_show(p,(char *)buf);
  721. out = buf;
  722. *out++ = input[i]; 
  723. prefs->style &= NOT_BOLDFACE;
  724. SetStyle(p,prefs);
  725. }
  726. } 
  727. out--;
  728. i--;
  729. while (input[i++] != '>') ;
  730.  
  731. if (sendDown == true)
  732. goto TerminateLine;
  733. continue;
  734. } 
  735. } 
  736.  
  737. } while (strchr(okLineEnders,input[i])==NULL && input[i] != CARRIAGE_RETURN
  738. && input[i] != LINEFEED && i < textLength - 2); 
  739. *out++ = input[i++]; 
  740. *out = 0x00;
  741. if (LineSegmented == true)
  742. { PDF_show(p,(char *)buf); goto SegEntry; }
  743. if (prefs->justify == true) 
  744. JustifyLine(p,(char *)buf,prefs,desiredWidth);
  745. else
  746. PDF_set_horiz_scaling(p,(float)prefs->chwidth);
  747. TerminateLine:
  748. *out = 0x00; 
  749. currentDepth += LeadingValue(p,prefs); 
  750.  
  751. SegEntry:
  752. PDF_set_text_pos(p,(float)(prefs->marginLeft),PAGEHEIGHT-currentDepth);
  753. if (LineSegmented == false)
  754. PDF_show(p,(char *)buf);
  755. NewPage:
  756. { 
  757. int curfont = PDF_get_font(p);
  758. float fontsize = PDF_get_fontsize(p);
  759. float lead = LeadingValue(p,prefs);
  760. if ( currentDepth >= pointDepthLimit ) { 
  761. PDF_end_page(p);
  762. timeForNewPage = true;
  763. }
  764. if (timeForNewPage && i < textLength - 1) {
  765. timeForNewPage = false;
  766. PDF_begin_page(p,LETTER_WIDTH,LETTER_HEIGHT); 
  767. PDF_setfont(p,font,prefs->ptsize);
  768. PDF_set_leading(p, prefs->leading);
  769. DoHeader(prefs,p,++page);
  770. SetStyle(p,prefs);
  771. SetTextColor(p,prefs);
  772. currentDepth = LeadingValue(p,prefs) + prefs->marginTop;
  773. PDF_set_text_pos(p,prefs->marginLeft,PAGEHEIGHT - currentDepth);
  774. PDF_show(p," ");
  775. /*timeForNewPage = false;
  776. PDF_setfont(p,curfont,fontsize);
  777. SetStyle(p,prefs);
  778. PDF_set_leading(p,lead);
  779. SetTextColor(p,prefs); 
  780. currentDepth = LeadingValue(p,prefs) + prefs->marginTop;
  781. PDF_set_text_pos(p,prefs->marginLeft,PAGEHEIGHT - currentDepth);
  782. PDF_show(p," "); */
  783. }
  784. lw = 0;
  785. } 
  786. } 
  787. TheEnd:
  788. bbxtDoneProgress(callbacks);
  789. PDF_end_page(p);
  790. PDF_close(p);
  791. HUnlock(theText);
  792. if (fref != -1) {
  793. amt = sizeof(Prefs);
  794. SetEOF(fref,0L);
  795. err = FSWrite(fref,&amt,prefs);
  796. FSClose(fref);
  797. }
  798. if (prefs->launchAcrobat == true) 
  799. OpenInAcrobat(callbacks,w,(char *)filename);
  800. if (prefs) DisposePtr((Ptr)prefs);
  801. return err;}
  802. char *lowerstr( char *p) {
  803. int i;
  804. char *ch = p;
  805. for (i=0; *ch; i++)
  806. ch[i] = tolower(ch[i]);
  807. return p;
  808. }
  809. void FudgeName(ExternalCallbackBlock *cb, unsigned char *str, WindowPtr w) {
  810. Str255 fName;
  811. short v;
  812. long d;
  813. int length;
  814. char ending[] = { '.','p','d','f', 0x00 };
  815. bbxtGetDocInfo(cb,w,fName,&v,&d); 
  816. length = *fName;
  817. BlockMove(fName+1,str,(long) *fName);
  818. BlockMove(ending,str+length,5);
  819. }
  820. void OpenInAcrobat(ExternalCallbackBlock *cb,WindowPtr w, char *pdfFileName) {
  821. Str255 fName;
  822. short v;
  823. long d;
  824. FSSpec fss,appFSS;
  825. ProcessSerialNumber psn;
  826. extern void CopyCtoP( char *c, Str63 p);
  827. OSErr err = noErr;
  828. bbxtGetDocInfo(cb,w,fName,&v,&d); 
  829. CopyCtoP(pdfFileName,fName);
  830. FSMakeFSSpec(0,0L,fName,&fss);
  831. bbxtFindApplication(cb,'CARO', &appFSS);
  832. err = bbxtLaunchApplication(cb,'CARO',&appFSS,&psn);
  833. bbxtSendOpenDoc(cb,'CARO', nil, &fss,true);
  834. }
  835. void setDefaultPrefs( PrefsPtr p ) {
  836. p->marginTop = p->marginBot = 72;
  837. p->marginLeft = p->marginRt = 72;
  838. p->font = 5;
  839. p->transition = 6;
  840. p->chwidth = 100;
  841. strcpy(( char *)p->author,"Whomever");
  842. strcpy(( char *)p->title,"Whatever");
  843. strcpy(( char *)p->keywords,"Whichever");
  844. p->justify = false;
  845. p->header = false;
  846. p->numberPages = false;
  847. p->launchAcrobat = true;
  848. p->interpHTML = true;
  849. p->spaces = 5;
  850. p->lines = 60;
  851. p->ptsize = 10.5;
  852. p->leading = 11.5;
  853. p->color[0] = p->color[1] = p->color[2] = 0.0;
  854. p->style = 0;
  855. }
  856. float LeadingValue(PDF *p,PrefsPtr prefs) {
  857. float fntsize = PDF_get_fontsize(p);
  858. if (fntsize == prefs->ptsize)
  859. return prefs->leading;
  860. return fntsize;
  861. }
  862. void SetTextColor(PDF *p, PrefsPtr prefs ) {
  863. PDF_setrgbcolor(p,prefs->color[0],prefs->color[1],prefs->color[2]);
  864. }
  865.  
  866. void SetStyle(PDF *p, PrefsPtr prefs)
  867. {
  868. int baseFamily = (prefs->font - 1)/4;
  869. int curFont = PDF_get_font(p);
  870. int newFont,fnt,i;
  871. float fontsize = PDF_get_fontsize(p);
  872.  
  873. newFont = 1 + ((baseFamily * 4) | prefs->style);
  874. fnt = PDF_findfont(p,(char *)fontTable[newFont],"default",0); 
  875. PDF_setfont(p, fnt, fontsize);
  876. }
  877. void JustifyLine(PDF *p, char *line, PrefsPtr pp,long targetWidth) {
  878. float lw,rawRatio,amt_per_char;
  879. int font = PDF_get_font(p);
  880. float fontsize = PDF_get_fontsize(p);
  881. char *buf = line;
  882. int chars,words;
  883. lw = PDF_stringwidth(p,buf,font,fontsize);
  884. rawRatio = pp->chwidth/100.;
  885. lw *= rawRatio;
  886. if (lw < 0.6 * targetWidth) {
  887. PDF_set_horiz_scaling(p, pp->chwidth);
  888. return; 
  889. }
  890. rawRatio = lw/targetWidth;
  891. chars = CountChars(line);
  892. if (!chars) return;
  893. lw = targetWidth - lw;
  894. lw *= 100./pp->chwidth;
  895. PDF_set_horiz_scaling(p, pp->chwidth * (1. + .11 * lw/targetWidth) );
  896. amt_per_char = .9 * (lw)/chars;
  897. PDF_set_char_spacing(p, (float)((lw > 1.) ? -amt_per_char:amt_per_char));
  898. }
  899. int CountChars(char *line) {
  900. char *b = line;
  901. int i = 0;
  902. while (*b) {
  903. i++;
  904. b++;
  905. }
  906. return i;
  907. }
  908. int CountWords(char *line) {
  909. char *b = line;
  910. int i = 0;
  911. while (*b) {
  912. if (*b == SPACE) {
  913. while (*b++ == SPACE) ;
  914. if (*b == NULL) break;
  915. }
  916. i++;
  917. b++;
  918. }
  919. return i;
  920. }
  921. void DoHeader(PrefsPtr prefs, PDF *p, long page) {
  922. float x,y,fs = PDF_get_font(p);
  923. char tmp[2];
  924. if (prefs->numberPages) {
  925. x = PAGEWIDTH - prefs->marginRt;
  926. y = PAGEHEIGHT - (.6 * prefs->marginTop);
  927. PDF_set_text_pos(p,x,y);
  928. sprintf((char *)tmp,"%i",(int)page);
  929. PDF_show(p,tmp);
  930. }
  931. if (prefs->header == false) return;
  932. PDF_setfont(p,fs,0.9 * prefs->ptsize);
  933. x = prefs->marginLeft;
  934. y = PAGEHEIGHT - (.6 * prefs->marginTop);
  935. PDF_set_text_pos(p,x,y);
  936. PDF_show(p,(char *)prefs->author);
  937. y -= 0.9 * prefs->leading;
  938. PDF_set_text_pos(p,x,y);
  939. PDF_show(p,(char *)prefs->title);
  940. y -= 0.9 * prefs->leading;
  941. PDF_set_text_pos(p,x,y);
  942. PDF_show(p,(char *)prefs->keywords);
  943. PDF_setfont(p,fs,prefs->ptsize);
  944. }
  945. int Hex2int(char *c) {
  946. char ch[2];
  947. int value = 0;
  948. ch[0] = *c; ch[1] = 0x00;
  949. if (isdigit(ch[0])) value = 16 * atoi(ch);
  950. else {
  951. if (tolower(ch[0]) == 'a') value = 16 * 10;
  952. if (tolower(ch[0]) == 'b') value = 16 * 11;
  953. if (tolower(ch[0]) == 'c') value = 16 * 12;
  954. if (tolower(ch[0]) == 'd') value = 16 * 13;
  955. if (tolower(ch[0]) == 'e') value = 16 * 14;
  956. if (tolower(ch[0]) == 'f') value = 16 * 15;
  957. }
  958. ch[0] = *(c+1);
  959. if (isdigit(ch[0])) value += atoi(ch);
  960. else {
  961. if (tolower(ch[0]) == 'a') value += 10;
  962. if (tolower(ch[0]) == 'b') value += 11;
  963. if (tolower(ch[0]) == 'c') value += 12;
  964. if (tolower(ch[0]) == 'd') value += 13;
  965. if (tolower(ch[0]) == 'e') value += 14;
  966. if (tolower(ch[0]) == 'f') value += 15;
  967. }
  968. return value;
  969. }
  970.